home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / earcd / util / rexx / dofile32.lha / dofile / dostart.rexx < prev   
OS/2 REXX Batch file  |  1997-01-31  |  423b  |  21 lines
  1. /*
  2. ** $VER: dostart.rexx 1.1 (27.9.96) Rolf Rotvel
  3. */
  4. if arg() > 0 then prefs = arg(1)
  5. else prefs = 's:dofile.prefs'
  6.  
  7. if ~open('tmp', prefs, 'r') then do
  8.     say 'DoStart: Couldn''t open '||prefs
  9.     exit 
  10. end
  11.  
  12. cfg = translate(readch('tmp', 65535), '', '0a'x)
  13. call close('tmp')
  14.  
  15. do forever
  16.     parse var cfg dtyp '"' cmd '"' cfg
  17.     if dtyp = '' then leave    
  18.     call setclip('dofile.'||upper(strip(dtyp)), cmd)
  19. end
  20. exit
  21.